home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 49 / Amiga Format CD49 (2000-01-17)(Future Publishing)(GB)(Track 1 of 3)[!][issue 2000-02].iso / -readerstuff- / paul_bray / e-stuff / examples / pythatest.e < prev    next >
Text File  |  1999-11-30  |  199b  |  11 lines
  1.  
  2. MODULE 'pauls/pytha'
  3.  
  4. PROC main()
  5. DEF f,s[12]:STRING,s2[12]:STRING
  6. f:=fHyp(20.0,24.0)
  7. RealF(s,f,4)
  8. RealF(s2,fSide(f,20.0),4)
  9. WriteF('Find Hypotenuse of 20,24: \s\nFind the side: \s\n',s,s2)
  10. ENDPROC
  11.